(vc-mode-line): use force-mode-line-update instead of the Emacs 18

kluge.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 8f407d5b9d875051927d78d36a50c64075f91a34..7160558d9db57275a8721f55cde6f3835bbc30a9 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -154,8 +154,8 @@ visiting FILE."
         (require 'vc)
         (not (string-equal (user-login-name) (vc-locking-user file)))
         (setq buffer-read-only t))
-    ;; force update of mode line
-    (set-buffer-modified-p (buffer-modified-p))
+    (force-mode-line-update)
+    ;;(set-buffer-modified-p (buffer-modified-p))  ;;use this if Emacs 18
     vc-type))
 
 (defun vc-rcs-status (file)